#!/usr/local/bin/perl

use strict;
use lib '..';
use MR::AsyncHTTP;
use Data::Dumper;
use Time::HiRes;

my $a = MR::AsyncHTTP->new(connect_timeout=>1);

my $id = $a->send_get('http://mail.ru');
my $id2 = $a->send_get('http://ya.ru');

my $r= $a->wait($id);
substr($r->{result}->{body}, 1500) = '';
print Dumper($r);

$r= $a->wait($id2);
substr($r->{result}->{body}, 1500) = '';
print Dumper($r);
